home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / expand.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-26  |  449b  |  23 lines
  1. /* expand - function to expand AMIGAdos wild cards
  2.  *
  3.  * Copyright 1991, Mike Meyer
  4.  * All Rights Reserved
  5.  *
  6.  * See the file "Supersaver:Distribution" for information on distribution.
  7.  */
  8. parse arg    files
  9.  
  10. out = ""
  11. do i = 1 to words(files)
  12.     pat = word(files, i)
  13.     if verify(pat, '#?', 'Match') = 0 then
  14.         out = out pat
  15.     else do
  16.         'list lformat %p%n'  pat '| execio stem lines.'
  17.         do j = 1 to lines.0
  18.             out = out lines.j
  19.             end
  20.         end
  21.     end
  22. return out
  23.